home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PASSRC.ZIP / ARRAYS2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  2KB  |  69 lines
  1.                                 (* Chapter 6 - Program 2 *)
  2. program Multiple_Arrays;
  3.  
  4. var Index,Count     : integer;
  5.     Checkerboard    : array[1..8] of array[1..8] of integer;
  6.     Value           : array[1..8,1..8] of integer;
  7.  
  8. begin (* Main program *)
  9.    for Index := 1 to 8 do begin  (* index loop *)
  10.       for Count := 1 to 8 do begin
  11.          Checkerboard[Index,Count] := Index + 3*Count;
  12.          Value[Index,Count] := Index + 2*Checkerboard[Index,Count];
  13.       end;
  14.    end;  (* of index loop *)
  15.  
  16.    Writeln(' Output of checkerboard');
  17.    Writeln;
  18.    for Index := 1 to 8 do begin
  19.       for Count := 1 to 8 do
  20.          Write(Checkerboard[Index,Count]:7);
  21.       Writeln;
  22.    end;
  23.  
  24.    Value[3,5] := -1;  (* change some of the value matrix *)
  25.    Value[3,6] := 3;
  26.    Value[Value[3,6],7] := 2;  (* This is the same as writing
  27.                                 Value[3,7] := 2;            *)
  28.    for Count := 1 to 3 do
  29.       Writeln; (* Three blank lines *)
  30.    Writeln('Output of value');
  31.    Writeln;
  32.    for Count := 1 to 8 do begin
  33.       for Index := 1 to 8 do
  34.          Write(Value[Count,Index]:7);
  35.       Writeln;
  36.    end;
  37. end. (* of main program *)
  38.  
  39.  
  40.  
  41.  
  42. { Result of execution
  43.  
  44.  Output of checkerboard
  45.  
  46.       4      7     10     13     16     19     22     25
  47.       5      8     11     14     17     20     23     26
  48.       6      9     12     15     18     21     24     27
  49.       7     10     13     16     19     22     25     28
  50.       8     11     14     17     20     23     26     29
  51.       9     12     15     18     21     24     27     30
  52.      10     13     16     19     22     25     28     31
  53.      11     14     17     20     23     26     29     32
  54.  
  55.  
  56.  
  57.  Output of value
  58.  
  59.       9     15     21     27     33     39     45     51
  60.      12     18     24     30     36     42     48     54
  61.      15     21     27     33     -1      3      2     57
  62.      18     24     30     36     42     48     54     60
  63.      21     27     33     39     45     51     57     63
  64.      24     30     36     42     48     54     60     66
  65.      27     33     39     45     51     57     63     69
  66.      30     36     42     48     54     60     66     72
  67.  
  68. }
  69.